(∗ E s t e programa f a z o c a l c u l o do MDC p e l o metodo de E u c l i d e s ∗)
(∗ F e i t o por : Marcos C a s t i l h o
∗)
(∗ Data : 12/05/2009
∗)
program MDCporEuclides ;
var
a , b , r e s t o : l o n g i n t ; // 2 b y t e s eh pouco para numeros g r a n d e s
begin
read ( a , b ) ; // o s v a l o r e s l i d o s devem s e r nao n u l o s
i f not ( ( a = 0 ) or ( b = 0 ) ) then
begin
r e s t o := a mod b ;
while r e s t o <> 0 do // quando o r e s t o f o r z e r o temos o MDC em
b
begin
a:= b ;
b:= r e s t o ;
r e s t o := a mod b ;
end ;
writeln ( ’MDC = ’ , b ) ;
end
else
writeln ( ’O algoritmo nao funciona para entradas nulas ’ ) ;
end .

